(comint-bol-or-process-mark): Refer to this command's name correctly.

diff --git a/lisp/comint.el b/lisp/comint.el
index 880866114e6b6912ed33cce58094ea0592dbe66b..d38761506de0715e5fe009c32e2246b8c554adea 100644 (file)
--- a/lisp/comint.el
+++ b/lisp/comint.el
@@ -2338,7 +2338,7 @@ is at the beginning of the current input line; but if you have
 used \\[comint-accumulate] to send multiple lines at once,
 the process mark is at the beginning of the accumulated input."
   (interactive)
-  (if (not (eq last-command 'comint-bol-or-mark))
+  (if (not (eq last-command 'comint-bol-or-process-mark))
       (comint-bol nil)
     (comint-goto-process-mark)))